WILF’S 


least in theory. But in cold reality it seems that the older you 

get, the more thoroughly you fool yourself. I have long been 
interested in honing my thinking skills, and even now I find that I 
can learn much more about these skills from simple events around 
me than from the depths of my own experience. 

The elder feline of the Hey household — Claudius (the white 
one shown with me above) — demonstrates a very effective way of 
developing skills. Suppose he wishes to make a long jump at a 
peculiar angle onto a treacherous surface: he pauses, measures it, 
moves his head from side to side (judging three dimensions by par- 
allax, I imagine), flexes his hind leg muscles, feints a leap, looks 
around — and then launches himself. Being one of nature’s consum- 
mate acrobats he is usually successful — and even if he fails, he can 
usually cover his chagrin with studied grace. 

But the second time he comes to make a similar leap, things are 
different: it is no longer a problem, but an already-acquired skill. 
No time or energy is consumed re-learning. It’s a fascinating thing 
to watch a cat learning like this, and even more fascinating to think 
that we programmers have borrowed his methods. The shame of it 
is that we wrap up these useful methods in jargon: Encapsulation, 
Re-use, Inheritance and Polymorphism. 


oe he older you get, the better you get to know yourself — at 


A MATTER OF DIALECT 
Recently, I picked up the reference manual for a computer lan- 
guage I use only occasionally, and turned to the index to try to find 
‘concatenation’; I wanted to remind myself what symbol was used 
to indicate the joining of two strings. It wasn’t there — at least under 
that term. Eventually I found it under ‘Append, string’. I was 
annoyed at the waste of my time, and wondered whether either 
term would appear in a Forth Language Manual; here it appeared as 
something different again — ‘CONSing’. 

Wouldn’t it be a sweeter world if we could all refer to the same 
thing by the same name — at least in an index that might be used by 
somebody only partially skilled in the language? 


SPECIAL KEYBOARD EFFECTS 
On the keyboard attached to ATs (and higher) there are three pro- 
grammable lamps marked Num Lock, Caps Lock and Scroll Lock. 
There are three bits in memory that reflect their current values; if 
you change one of these values, you change the appropriate lamp 
(and shift, if applicable). 

You may think that outputting information to the keyboard is 
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Wilf Hey examines the learning process with the help 
of a feline friend, recalls some rather special-effect 
keyboards which landed operators in a sticky situa- 
tion, and works out ways to select items at random 
from a list — concluding with a hat trick. 


novel, but some years ago I came across an even more unusual 
claim. Several networked terminals were tied in to the same word 
processing program; the supervisor noted that on some occasions 
things appeared to go badly wrong, and that key processing slowed 
down considerably. 

The terminal operators were all speed-typists, and not surpris- 
ingly they were quick to notice the effect of the processing 
bottleneck. But they interpreted it in an unusual way: they com- 
plained that the keys got sticky. It was even claimed that keys rose 
slower after being pressed; some operators even insisted that they 
had to wash their hands every half hour because of the sticky film 
exuded over the keys. 


SEEING LIGHTS 

Recently we have had one or two requests for how to 
control these keyboard lamps (and the resultant 
shifts) from within a program: the best reason I can 
imagine is to force the keyboard into Caps Lock 
shift. 

If you are interested in the technique, study the 
following GW-Basic or QBasic program. The executable code con- 
sists of only eleven statements; the rest is data. This little program 
is known by a three-letter acronym — TBM. If you run the program 
you should easily fathom the meaning of the acronym. 

By the way, if you are running with GW-Basic you don’t need 
statements 170 and 180, but they will do no harm; QBasic needs 
them because SOUND works asynchronously (independently of 
other instructions) and we need to synchronise SOUND and lights. 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 


DEF SEG = 0 
READ A, B, C 
WHILE A > 0 
POKE 1047, C 
X$ = INKEYS 
SOUND A, B 
SOUND 32767, 1 
WHILE PLAY(0) > 0 
WEND 

READ A, B, C 
WEND 

DATA 659,8,32 
DATA 587,8,64 
DATA 523,8,16 
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240 DATA 32767,8,0 
250 DATA 659,8,32 

260 DATA 587,8,64 

270 DATA 523,8,16 

280 DATA 32767,8,0 
290 DATA 784,8,32 

300 DATA 698,3,64 

310 DATA 32767,1,0 
320 DATA 698,4,64 

330 DATA 659,8,16 

340 DATA 32767,8,0 
350 DATA 784,8,32 

360 DATA 698,3,64 

370 DATA 32767,1,0 
380 DATA 698,4,64 

390 DATA 659,8,16 

400 DATA 0,0,0 


This depends on the value in segment 0, offset 1047: bit 32 is the 
Num Lock lamp (and shift); bit 64 is the Caps Lock lamp (and 
shift); bit 16 is the Scroll Lock lamp (and shift). Since these are 
independent of each other, and there are other bits in the byte (for 
instance, one controls the Insert/Overwrite status) you will not nor- 
mally POKE values directly into it — since these will interfere with 
those other bits. The answer? You must PEEK, then use AND/OR 
functions to turn selected lamps off/on. For example... 


POKE 1047,PEEK(1047) AND NOT 64 
...Will turn off the Caps Lock lamp, and... 

POKE 1047,PEEK(1047) OR 32 
.Will turn on the Num Lock lamp. 


Of course if you are writing in assembly language, or one that 
allows access to assembly language, you should be able to work out 
what to do — after all even Basic programmers can do it! 


WENDING MY WAY 

While writing the little programming examples for this column, I 
recalled a letter I received a few months back: Arnold Case of 
Belgium asked why I seemed to be so in love with WHILE and 
WEND, even though (he claims) they are less efficient than FOR 
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and NEXT, or IF and GOTO. I often dismiss this question with the 
explanation that it makes for well-constructed routines, and walk - ¥ 
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away before such a fatuous comment can be challenged. 

Now I am ready to confess exactly why I like WHILE and 
WEND: this pair of commands is together called (in the philosophy 
of programming) a structure: it forms the edges of an identifiable 
chunk of program which can (and should) be made independent of 
other parts. Ideally the code between WHILE and WEND should 
relate to other parts of the whole program only through parameters 
and globals. Parameters I am sure you know; globals are just 
parameters that have a global significance — for example many dif- 
ferent program routines will want to know the system date or the 
type of display adaptor. These are variables which may be consid- 
ered global. 

In the program TBM (Seeing Lights on page 327) the 
WHILE/WEND structure from 120 to 200 has A,B and C as its 
parameters — plus the DATA stack. It could be incorporated with- 
out change into a larger program. 

Besides independence (and the clarity it brings) there is another 
benefit of using program structures. Note that WHILE/WEND does 
not need a statement number, yet still provides the same control 
that an IF/GOTO type of loop would. This makes code easily 
ported into other flavours of Basic (which need no line numbers) 
and not too difficult to translate into many other languages. 
Programs in some languages (notably those of the database-han- 
dling type) are best constructed as nests of structured programming, 
with nary a statement number or name in sight — and no wasteful 
GOTO instructions. 


SHUFFLING FEAT 

Steve Croft of Inverary writes asking how to solve a 
perplexing programming problem: he wants to 
extract items at random from a list, continuing 
until the list is exhausted. For example when he 
starts he wants to fetch any old item from a list of 
20; next he wants to select one randomly from the 
remaining 19 and so on. 

There are many ways of selecting random items, and of shuf- 
fling: results can be surprisingly different. I have coded a program 
(in generic Basic, so it will work in GW-Basic, QBasic and 
QuickBasic) that works as Steve has requested. The trick is to get 
everything into a matrix (DIM), then select at random one entry 
from it. Since this selected one is now removed from further selec- 
tion, we have to move it out of the way: the easiest way I have 
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MEASURING UP WITH INTERRUPTS 


P Sanchoz of Nottingham 
wrote asking advice on how 
to do interrupt coding (from 
Reeewe Visual Basic for DOS) to 
‘SuperDisk determine the length of a 
file: his question is in this 
issue's Help Screen (see page 339) 

together with a rather simple answer. But not all 
languages provide a neat, ready-written function 
like Basic's LOF(), so here is a straightforward 
solution using interrupts. 

| have included a little program on the 
SuperDisk called SHOWSIZE.COM, along with its 


assembler source (using A86), which serves to 
demonstrate this technique. As a bonus to 
assembler programmers there is a useful double- 
word binary-to-decimal conversion subroutine in 
this source. 

First, a few explanations... 


DOS and BIOS functions - the ones you execute 
through interrupts - almost always need some- 
thing to signify the end of a string; sometimes 
the dollar sign [$] should be added to the end 
(for example, when you pass a string to interrupt 
21h service 9 to put a string on STDOUT - which 
is usually the screen). 


In most other circumstances, the terminat- 
ing character should be a null - or 00h - and you 
will need to ensure that the filename has this 
immediately after it in the string. 

The easiest (and, incidently, the most reli- 
able) way to determine the length of a file is to 
take the following steps, all using interrupt 21h. 
These can be incorporated into any language 
that allows you access to the machine registers 
and interrupts. 


@ open the file, using service 3Dh; you will want 
to set up registers as follows: 

AX = 3D00h 

DS = segment address of your filename 

string 

DX = offset address of your filename string 
Remember that the filename string should con- 
tain the full path to the file if it isn’t in the 
current directory. 

Note that if the carry flag is set after doing 
the interrupt, a problem occurred. If everything 
is all right, the file handle (a sort of numeric nick- 
name) will be found in AX. 


@ move the handle (in AX) into the BX register - 
and don’t change BX again during these steps. 
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@ move the file pointer to the file’s end, using 
service 42h; you do this by putting a value of 
4202h in AX, and make sure that CX and DX are 
set to zero. 


@ note the resultant four-byte integer value in 
registers AX and DX: the most significant part is 
in DX. 


@ close the file, using service 3Eh. 


You will, of course, want to have a reference 
manual open in front of you, detailing the inter- 
rupt services, but | have given you all you really 
need here. 

There is another set of input/output inter- 
rupts for the handling of files, using File Control 
Blocks (FCBs) instead of Handles. 

You may think of using them, but in the par- 
lance of a popular TV comic I'd advise that ‘you 
don’t want to do that’; they are there for com- 
patibility with programs written in CP/M style 
years ago. 

For normal open/close/create or read/write 
operations on files you are, in fact, well advised 
to stick with services 3Ch to 43h, which are the 
‘handle’ services. 


we 


found is to exchange it with the last one in the matrix, and then 
shorten the matrix. I have done that below in the following lines... 


—lines 210 and 260 control the size of the matrix 
—line 220 selects a numbered item from the matrix 
—lines 230 to 250 swap the entry with the last in the matrix 


100 REM Demonstration of actual SHUFFLING 
110 REM - first, determine items to shuffle 
120 RANDOMIZE TIMER 

130 INPUT”How many items to shuffle”;COUNTER 
140 DIM XS (COUNTER) 

150 FOR I = 1 TO COUNTER 

160 PRINT “item”;I; 

170 INPUT XS(I) 

180 NEXT 

190 PRINT 

200 REM - shuffling (starting at last place) 
210 FOR I = COUNTER TO 1 STEP -1 

220 J = INT(RND*I) + 1 


230 TEMPS = X$(T) 
240 XS$(I) = X$(J) 
250 X$(J) = TEMPS 
260 NEXT 


270 REM - finally, print out new order 
280 PRINT 

290 FOR I = 1 TO COUNTER 

300 PRINT “new item”’;1I;":"; 

310 PRINT XS$(T) 

320 NEXT 


This program is probably more flexible than you will often need: if 
you are shuffling a pack of cards you already know there are fifty- 
two specimens, and you know the values already. In that case you 
know COUNTER is 52, and you would probably want to load the 
matrix with a FOR/READ/NEXT structure whizzing through 
DATA statements. 


PRACTICAL PROJECT 
Dr Edward deBono ~ he of lateral thinking fame — wrote a book 
called Six Thinking Hats to help people make decisions more read- 
ily and intelligently. The idea is to ‘put on a hat’ of a particular 
colour, and view any problem from a standpoint suggested by the 
hat’s colour. The six hats Dr deBono had in mind were: white 
(objective), red (emotional), black (negative), gold (positive), green 
(creative) and blue (cool and controlled). He suggested that you 
should be able to don each of these hats in random order, applying 
different methods of thinking to the problem. From a synthesis of 
the best ideas that arise from this exercise you may be in a better 
position to solve the problem appropriately. 

With the shuffling technique I have introduced this month, you 
may care to create a program to choose randomly from the six hats 


@ Dr Edward deBono felt that decisions could be made more effectively by donning a 
coloured hat. Put on your own thinking cap this month and you could win a prize. 
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ENTERPRISING PROGRAMMERS 


Through this column I've been meeting lots of programmers with chal- 
lenging ideas; many are establishing small businesses against all the 
odds, and approaching the challenges of the millennium’s last few 
years with optimism, or even defiance. 

In the hope that it may be an encouragement to other readers, | 
plan to provide a thumbnail sketch of the background and activities of 
enterprising PC programmers | have met. | am particularly interested to | 
hear of any who have forged links with similar small groups elsewhere 
in Europe. 

This month I'd like to introduce Suzanne Jones and Alison Peters 
who have created The Clarion User Group - the trading name of a lim- 
ited company. It may seem unusual to adopt a user group format for a 
commercial venture, but it is an experiment that has succeeded before. 

Clarion is an established 4GL (Fourth Generation Language); it fea- 
tures a program that writes source code for bespoke database-type 
programs. Clarion has been very popular in the US but not as well 
known in Europe. Recently, though, the Florida-based compiler devel- 
oper merged with Britain's JP! - well known and critically acclaimed. 
Now the Clarion language has been married to the famed JPI technol- 
ogy, and much is expected of the revised product. 

Suzanne has an engineering and programming background; in ear- 
lier days she maintained flight simulators (the real ones - not arcade 
games); she became enamoured of the Clarion language after being 
assigned the task of evaluating it for a client. She has long laboured to 
increase the effectiveness of amateur user groups, but has found it dif- 
ficult to draw the attention (and worthwhile support) of the formerly 
US-based manufacturer. Her new company happily coincides with the 
changes in Clarion Corporation that makes Britain the centre of its 
technical development. 

Alison is newer to the Clarion/JPI languages, but no less commit- 
ted to the project. She has a long and impressive background in 
engineering, having led teams in the power industry. She is now 
savouring the opportunity of editing Clarionette - a glossy magazine 
that has got off to a good start, and promises to expand quickly; it 
already reaches subscribers in Belgium, Eire, France, Italy and 
Switzerland as well as all over the UK. 

Suzanne and Alison, along with team member Ann Byrne, are dedi- 
cated to long hours over a hot keyboard (often unpaid) and recognise 
that as a small, start-up business they are subject to the odd disaster. 
But they have clear objectives for themselves, have recognised a practi- 
cal need of programmers - personal support and contact with experts - 
and endeavour to deliver a solution. 

Besides the magazine, they supervise an advice hotline, and have 
recently opened a bulletin board. They invite you to dial in on 021-454 
8124; it supports speeds of 1200 BPS and higher at 8,N,1 with ANSI 
emulation, and is open all the time. | can promise you there will be 
things of interest even to non-Clarion users. The Clarion User Group 
can be reached on 021-456 5611. 


and record a thought that arises from donning each hat. I have writ- 
ten such a program; it presents the six hats in random order until 
each has been donned three times. At all times, a sixty-character 
summary is printed on the screen associated with each hat — up to 
three summaries per hat colour. After all eighteen thoughts, a con- 
clusion (three lines) is accepted: all this is written into a little file 
which I can keep or discard at will. Mine is written in QuickBasic, 
and uses DOS CGA text mode. 

Perhaps you would like to take up my challenge of writing this 
in Visual Basic 2, using some of the advanced graphics and 
Windows features available? Please use a single form, so everybody 
who has the Primer Edition (PC PLUS SuperDisk 78, March 1993) 
can enjoy it with you. The best three will receive a copy of 
Clockwork Software’s excellent FromBAT language as a prize. @ 


Tips, arguments and ideas are gratefully received by 
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~ Processor 80386SX-33 ; 80486SX-25 80486DX-66 80486-33 80486DX2-66 


Processor Speed 
BIOS 

Shadow RAM 
Cache Memory 
Main Memory 
1MB Video Card 
Colour Monitor 
Serial/Parallel ports 
keyboard 

case 

Power Supply Unit 
Floppy Disk Drive 


33MHz 
AMI 
YES 
2MB 
512K 
14" SVGA LOW/R 
2/1/ Games 
UK 102 Key 
Mini Stand 


200 Watts 
1.44MB 3.5" 


14" SVGA LOW/R 
2/1/ Games 
UK 102 Key 
Mini Stand 
200 Watts 
1.44MB 3.5" 


25MHz 
AMI 
YES. 

64 
4MB 
512K 

14" SVGA LOW/R 
2/1/ Games 
UK 102 Key 
Mini Stand 

200 Watts 
1.44MB 3.5" 


33MHz 
AMI 
YES 
256 
4MB 
YES 
14" SVGA LOW/R 
2/1/ Games 
UK 102 Key 
Mini Stand 
200 Watts 
1.44MB 3.5" 


66MHz 
AMI 
YES 
256 
4MB 
YES 
14" SVGA LOW/R 
2/1/ Games 
UK 102 Key 
Mini Stand 
200 Watts 
1.44MB 3.5" 


33MHz 
AMI 
YES 
256 
4MB 
FES 
14" SVGA LOW/R 
2/1/ Games 
UK 102 Key 
Mini Stand 
200 Watts 
1.44MB 3.5" 


66MHz 
AMI 
YES 
256 
4MB 
YES 
14" SVGA LOW/R 
2/1/ Games 
UK 102 Key 
Mini Stand 
200 Watts 
1.44MB 3.5" 


Hard Disk Drive 
Serial Mouse 


42MB 80MB 
Option Option 
Option Option 
Option Option 


170MB 
Option 
Option 
Option 


170MB 
Option 
Option 
Option 
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80486DX2-66 aeeKee SORTS 
CACHE 256K CACHE 
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RAM 4MB (EXP 32MB) 
PORTS + HDD CONT | 2SER/1PAR/GAMES 
FLOPPY DRIVE 1.44MB 3.5" 
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KEYBOARD 102 KEYS (UK 
CASE:+ PSU MINI-STAND 
COLOUR MONITOR 14" SVGA 
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256K CACHE 
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8MB (EXP 32MB) 


1 
USE PAD 4MB RAM 
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210 HARD DISK 


102 KEY KEYBOARD 
16 BIT NETWORK CARD 
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